home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Summer / rerun-1985-summer-side-b.d64 / joystick artist (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  10KB  |  164 lines
  1. 10 rem 64 joystick artist by michael platt
  2. 15 print:print "[147]poking machine code -- please wait"
  3. 19 rem checksum
  4. 20 z=0:s=206122:fort=0to1809:reada:z=z+a:next
  5. 30 ifz=sthenprint"data statements correct":goto50
  6. 40 ifz<>sthenprint"error in data statements":end
  7. 50 restore
  8. 99 rem main routine
  9. 100 fort=49152to49456:readd:poket,d:next
  10. 110 data128,64,32,16,8,4,2,1,192,192,48,48,12,12,3
  11. 120 data3,128,128,32,32,8,8,2,2,64,64,16,16,4,4,1
  12. 130 data1,63,63,207,207,243,243,252,252,169,8,133,34,56,176,29
  13. 140 data169,16,133,34,56,176,22,169,24,133,34,56,176,15,169,32
  14. 150 data133,34,56,176,8,169,0,133,34,56,176,1,96,173,65,3
  15. 160 data201,2,176,248,201,1,208,7,173,64,3,201,64,176,237,173
  16. 170 data66,3,201,200,176,230,169,0,141,63,3,133,254,173,64,3
  17. 180 data41,248,141,60,3,173,66,3,41,7,24,109,60,3,141,60
  18. 190 data3,173,65,3,105,0,141,61,3,173,66,3,41,248,133,253
  19. 200 data160,5,10,46,63,3,136,208,249,141,62,3,165,253,160,3
  20. 210 data10,38,254,136,208,250,24,109,62,3,133,253,165,254,109,63
  21. 220 data3,133,254,24,165,253,109,60,3,133,253,165,254,109,61,3
  22. 230 data24,105,32,56,133,254,173,64,3,41,7,24,101,34,170,189
  23. 240 data0,192,133,35,160,0,177,253,166,34,224,32,240,5,5,35
  24. 250 data145,253,96,37,35,145,253,96,162,0,169,38,157,0,4,157
  25. 260 data0,5,157,0,6,157,0,7,169,1,157,0,216,157,0,217
  26. 270 data157,0,218,157,233,218,232,208,225,169,63,133,167,169,0,133
  27. 280 data166,168,145,166,136,192,0,208,249,198,167,166,167,224,31,208
  28. 290 data241,173,17,208,9,32,141,17,208,173,24,208,9,8,141,24
  29. 300 data208,96
  30. 309 rem move cursor routine
  31. 310 fort=49488to49619:readd:poket,d:next
  32. 320 data230,63,165,63,197,36,208,123,169,0,133,63,173,0,220
  33. 330 data41,1,208,10,173,1,208,201,40,240,3,206,1,208,173,0
  34. 340 data220,41,2,208,10,173,1,208,201,239,240,3,238,1,208,173
  35. 350 data0,220,41,8,208,32,173,16,208,201,1,208,7,173,0,208
  36. 360 data201,62,240,18,238,0,208,238,0,208,173,0,208,201,0,208
  37. 370 data5,169,1,141,16,208,173,0,220,41,4,208,20,173,16,208
  38. 380 data201,0,208,7,173,0,208,201,0,240,6,206,0,208,206,0
  39. 390 data208,173,16,208,201,1,208,12,173,0,208,201,254,208,5,169
  40. 400 data0,141,16,208,96
  41. 409 rem draw routine
  42. 410 fort=49920to49996:readd:poket,d:next
  43. 420 data173,16,208,141,65,3,173,0,208,141,64,3,173,1,208
  44. 430 data56,233,40,141,66,3,173,0,220,41,16,208,48,165,165,201
  45. 440 data0,208,9,32,61,192,206,66,3,32,61,192,165,165,201,1
  46. 450 data208,3,32,40,192,165,165,201,2,208,6,32,61,192,32,47
  47. 460 data192,165,165,201,3,208,6,32,61,192,32,54,192,96
  48. 469 rem read command keys/ poke color map routines
  49. 470 fort=50176to50564:readd:poket,d:next
  50. 480 data169,8,133,37,32,159,255,32,228,255,201,133,208,12,230
  51. 490 data168,166,168,224,16,208,4,162,0,134,168,166,168,142,37,208
  52. 500 data201,134,208,12,198,165,166,165,224,255,208,4,162,3,134,165
  53. 510 data201,135,208,15,238,32,208,174,32,208,224,16,208,5,162,0
  54. 520 data142,32,208,201,136,208,15,238,33,208,174,33,208,224,16,208
  55. 530 data5,162,0,142,33,208,201,49,208,4,162,5,134,36,201,50
  56. 540 data208,4,162,10,134,36,201,51,208,4,162,16,134,36,201,52
  57. 550 data208,4,162,21,134,36,201,53,208,4,162,32,134,36,201,54
  58. 560 data208,4,162,48,134,36,201,55,208,4,162,64,134,36,201,56
  59. 570 data208,4,162,112,134,36,201,57,208,4,162,255,134,36,201,147
  60. 580 data208,3,32,8,193,201,137,208,3,32,0,202,201,138,208,3
  61. 590 data32,0,201,201,45,208,5,162,0,142,21,208,201,43,208,5
  62. 600 data162,3,142,21,208,201,139,208,7,162,1,134,37,32,0,202
  63. 610 data201,140,208,7,162,1,134,37,32,0,201,201,169,208,12,174
  64. 620 data33,208,142,254,207,174,32,208,142,255,207,201,92,208,12,174
  65. 630 data254,207,142,33,208,174,255,207,142,32,208,133,39,96,2,0
  66. 640 data0,173,0,220,41,16,208,125,32,21,195,165,254,41,7,170
  67. 650 data165,254,74,74,74,133,167,165,253,74,74,74,133,166,224,0
  68. 660 data240,15,202,24,165,166,105,32,133,166,144,242,230,167,56,176
  69. 670 data237,160,0,165,165,201,3,208,16,177,166,41,15,106,106,106
  70. 680 data106,5,168,42,42,42,42,145,166,165,165,201,2,208,8,177
  71. 690 data166,41,240,5,168,145,166,165,165,201,1,208,40,24,165,167
  72. 700 data105,212,133,167,165,253,41,1,176,11,177,166,41,240,5,168
  73. 710 data145,166,56,176,16,177,166,41,15,106,106,106,106,5,168,42
  74. 720 data42,42,42,145,166,96
  75. 729 rem display draw mode routine
  76. 730 fort=50688to50806:readd:poket,d:next
  77. 740 data165,165,201,3,208,25,169,171,141,201,3,141,204,3,141
  78. 750 data210,3,141,213,3,169,191,141,216,3,141,198,3,141,207,3
  79. 760 data201,2,208,27,169,191,141,198,3,141,207,3,141,216,3,169
  80. 770 data171,141,201,3,141,204,3,169,186,141,210,3,141,213,3,201
  81. 780 data1,208,23,169,171,141,198,3,141,201,3,141,204,3,141,207
  82. 790 data3,141,210,3,141,213,3,141,216,3,201,0,208,25,169,191
  83. 800 data141,198,3,141,207,3,141,216,3,169,186,141,201,3,141,210
  84. 810 data3,141,204,3,141,213,3,96
  85. 819 rem single/ double cursor routine
  86. 820 fort=50944to51010:readd:poket,d:next
  87. 830 data165,39,201,42,208,15,166,38,240,7,162,0,134,38,56
  88. 840 data176,4,162,1,134,38,166,38,224,1,208,25,206,66,3,32
  89. 850 data0,197,162,140,142,211,3,142,214,3,162,136,142,217,3,142
  90. 860 data220,3,56,176,14,162,128,142,211,3,142,214,3,142,217,3
  91. 870 data142,220,3,96
  92. 879 rem load routine
  93. 880 fort=51456to51567:readd:poket,d:next
  94. 890 data32,0,206,165,165,141,253,207,169,27,141,17,208,169,21
  95. 900 data141,24,208,173,33,208,141,69,63,173,32,208,141,70,63,169
  96. 910 data0,141,21,208,169,6,141,33,208,160,0,185,0,204,32,210
  97. 920 data255,200,192,40,208,245,165,37,201,1,208,13,160,0,185,40
  98. 930 data204,32,210,255,200,192,20,208,245,32,0,205,169,0,32,213
  99. 940 data255,173,69,63,141,33,208,173,70,63,141,32,208,169,3,141
  100. 950 data21,208,32,32,193,32,80,206,32,160,207,173,253,207,133,165
  101. 960 data96
  102. 969 rem save routine
  103. 970 fort=51712to51834:readd:poket,d:next
  104. 980 data32,0,206,165,165,141,253,207,169,27,141,17,208,169,21
  105. 990 data141,24,208,173,33,208,141,69,63,173,32,208,141,70,63,169
  106. 1000 data0,141,21,208,169,6,141,33,208,160,0,185,0,204,32,210
  107. 1010 data255,200,192,20,208,245,165,37,201,1,208,13,160,0,185,40
  108. 1020 data204,32,210,255,200,192,20,208,245,32,0,205,169,17,32,210
  109. 1030 data255,169,0,133,61,169,32,133,62,162,0,160,72,169,61,32
  110. 1040 data216,255,173,69,63,141,33,208,169,3,141,21,208,32,32,193
  111. 1050 data32,80,206,32,160,207,173,253,207,133,165,96
  112. 1059 rem initialization
  113. 1060 fort=51968to52078:readd:poket,d:next
  114. 1070 data32,231,192,169,3,141,21,208,169,1,141,39,208,169,160
  115. 1080 data141,0,208,141,1,208,169,0,141,33,208,169,1,141,29,208
  116. 1090 data173,22,208,9,16,141,22,208,169,3,133,165,169,3,141,28
  117. 1100 data208,169,32,133,36,141,2,208,169,58,141,3,208,169,6,133
  118. 1110 data167,169,108,133,166,169,38,133,170,169,1,133,171,169,1,133
  119. 1120 data168,169,1,141,40,208,169,0,133,38,141,37,208,169,6,141
  120. 1130 data32,208,32,160,207,169,14,141,248,7,169,15,141,249,7,96
  121. 1149 rem data for save/load prompt
  122. 1150 fort=52224to52431:poket,0:next
  123. 1160 fort=52224to52283:reada:poket,a:next
  124. 1170 data147,5,17,17,18,29,29,68,73,83,75,32,83,65,86
  125. 1180 data69,32,32,146,58,32,13,145,29,29,29,29,29,29,29,18
  126. 1190 data76,79,65,68,29,29,29,29,146,19,17,17,18,29,29,84
  127. 1200 data65,80,69,29,29,29,29,29,29,29,29,29,146
  128. 1210 poke52329,12:poke52332,8:poke52338,8:poke52341,12
  129. 1219 rem sprite data
  130. 1220 fort=52371to52397:reada:poket,a:next
  131. 1230 data170,140,85,191,140,85,171,136,85,171,136,85
  132. 1240 data191,128,85,171,128,85,171,128,85,191,128,85,170,128,85
  133. 1249 rem name input routine for save/load
  134. 1250 fort=52480to52619:reada:poket,a:next
  135. 1260 data162,0,160,0,232,224,255,208,251,200,192,16,208,246,32
  136. 1270 data159,255,32,228,255,201,32,144,7,201,96,176,3,32,210,255
  137. 1280 data201,20,208,3,32,210,255,166,211,224,31,208,4,160,30,132
  138. 1290 data211,224,14,208,4,160,15,132,211,201,13,208,3,56,176,3
  139. 1300 data56,176,190,169,1,166,37,160,1,32,186,255,162,112,160,254
  140. 1310 data202,200,189,0,4,201,32,240,247,132,65,169,16,56,229,65
  141. 1320 data168,162,0,24,189,94,4,201,47,176,10,201,32,176,6,24
  142. 1330 data105,64,157,94,4,232,224,17,208,233,152,162,95,160,4,32
  143. 1340 data189,255,169,13,32,210,255,169,192,32,144,255,96
  144. 1349 rem transfer memory to save area routine
  145. 1350 fort=52736to52791:reada:poket,a:next
  146. 1360 data162,0,189,0,216,157,0,64,189,0,217,157,0,65,189
  147. 1370 data0,218,157,0,66,189,0,219,157,0,67,189,0,4,157,0
  148. 1380 data68,189,0,5,157,0,69,189,0,6,157,0,70,189,0,7
  149. 1390 data157,0,71,232,224,0,208,203,96
  150. 1399 rem transfer memory from save area routine
  151. 1400 fort=52816to52871:reada:poket,a:next
  152. 1410 data162,0,189,0,64,157,0,